home *** CD-ROM | disk | FTP | other *** search
- .key ""
- .bra {
- .ket }
-
- echo "*N Please wait...*N"
- assign DCF77: remove
- failat 9
- cd >ENV:dcfpatchcd
-
- if exists "DCF77:DCF77/DCF77 (Kickstart 2.04)"
- cd "DCF77:DCF77/DCF77 (Kickstart 2.04)"
- endif
- if exists "DCF77:DCF77/Program"
- cd "DCF77:DCF77/Program"
- endif
-
- if not exists DCF77
- echo " Missing the DCF77 program. Please use a copy of your original disk."
- endcli
- endif
-
- echo " Your disk contains " noline
- version DCF77
- echo ""
-
- copy DCF77 T:dcf77old
- copy "DCF77 Diagnosis" T:dcf77diagold
-
- cd DCF77:
- delete >NIL: DCF77 all
-
- cd "$dcfpatchcd"
-
- lhex -qw=DCF77: x diskarchiv.lha
-
- gpatch T:dcf77old DCF77Patches T:newfile recursive
- copy T:newfile "DCF77:DCF77/Program/DCF77"
-
- gpatch T:dcf77diagold DCF77Patches T:newfile recursive
- copy T:newfile "DCF77:DCF77/Program/DCF77 Diagnosis"
-
- delete >nil: T:dcf77old
- delete >nil: T:dcf77diagold
- delete >nil: T:newfile
-
- echo "*N Patch successful."
- echo "*N You have now " noline
- version "DCF77:DCF77/Program/DCF77"
-
-
-